Private Sub UserForm_Initialize()

    With scrŰ
        .Max = 240
        .Min = 120
        .LargeChange = 10
        .SmallChange = 1
    End With

    With spn
        .Max = 100
        .Min = 50
    End With

End Sub